home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
INTNCHNL.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
2KB
|
60 lines
# Internet Channel PPP and SLIP login script
# Copyright 1995 Quarterdeck Corporation
# 5-9-95 TCB
STRING username
STRING password
STRING framing
STRING IPAddress
#TRACE ON
SetTimeout 90 # reset maximum script timeout
# Get username from access method
CfgGetValue "Username" username
IF result = 0 THEN
ABORT "Can't load Username from qdeck.ini"
ENDIF
# get password from access method
CfgGetValue "Password" password
IF result = 0 THEN
ABORT "Can't load Password from qdeck.ini"
ENDIF
CfgGetValue "Framing" framing # Added CEL
IF result = 0 THEN
ABORT "Can't read 'Framing' setting from QDECK.INI." # Added CEL
ENDIF # Added CEL
CommWaitFor "service, please?" # Added CEL
IF framing = "MPPPP" THEN # Added CEL
CommSend "ppp" # Added CEL
ENDIF
IF framing = "MPSLIP" THEN # Added CEL
CommSend "slip" # Added CEL
ENDIF # Added CEL
CommSend "%r" # send carriage return
CommWaitFor "name:"
CommSend username
CommSend "%r"
CommWaitFor "word:"
CommSend password
CommSend "%r"
IF framing = "MPSLIP" THEN # Added CEL
PRINT "%rGetting IP address for SLIP" # Added CEL
CommWaitFor "Your address is" # Added CEL
CommReadIPAddr IPAddress
CfgSetValue "IPAddress" IPaddress # Added CEL
PRINT "IP Address set to ["; IPAddress; "]" # Added CEL
ENDIF # Added CEL
END